Imports System.Data.SqlClient
Imports System.Text
Imports System.Xml
Imports System.Xml.Linq


Public Class FrmInstellingen

    'Maken sql-connectie met connectiestring
    Dim cn As New SqlConnection(My.Settings.Docregdata2ConnectionString)
    'Maken selectcommand
    Dim cmd As SqlCommand
    'Maken dataadapter
    Dim da As SqlDataAdapter
    'Maken dataset
    Dim ds As DataSet

    Dim cmdVerwijderwerk As New SqlCommand

    Public ProjectDirectoryXml As XElement

    Public Sub FrmInstellingen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Gebruikers' table. You can move, or remove it, as needed.
        Me.GebruikersTableAdapter.Fill(Me.DocRegData2DataSet.Gebruikers)
        Me.WerkenTableAdapter1.Fill(Me.DocRegData2DataSet.Werken)

        'Vullen_dataset_table()

    End Sub

    Private Sub BtnFrmHoofdmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFrmHoofdmenu.Click
        Me.Visible = False
        My.Forms.FrmHoofdmenu.Visible = True

    End Sub

    'Maken xml-bestand Projectdirectorys
    Public Sub MaakXmlBestand()

        ProjectDirectoryXml = <ProjectDirectorys>
                                  <Project>
                                      <Werknummer>
                                          <%= Me.TxtWerknummer.Text %>>
                                        </Werknummer>
                                      <ProjectDirectory>
                                          <%= Me.TxtProjectDirectory.Text %>
                                      </ProjectDirectory>
                                  </Project>
                              </ProjectDirectorys>
        'My.Computer.FileSystem.WriteAllText("C:\Documents and Settings\Hanzie\My Documents\ProjectDirectorys.xml", ProjectDirectoryXml.ToString, False)
        My.Computer.FileSystem.WriteAllText(System.AppDomain.CurrentDomain.BaseDirectory & "\ProjectDirectorys.xml", ProjectDirectoryXml.ToString, False)

    End Sub

    Private Sub VoegtoeXmlbestand()
        'Toevoegen Xelement (Nieuw werknummer met directory)
        'ProjectDirectoryXml = XElement.Load("C:\Documents and Settings\Hanzie\My Documents\ProjectDirectorys.xml")
        ProjectDirectoryXml = XElement.Load(System.AppDomain.CurrentDomain.BaseDirectory & "\ProjectDirectorys.xml")

        Dim dir = <Project>
                      <Werknummer><%= Me.TxtWerknummer.Text %></Werknummer>
                      <ProjectDirectory><%= Me.TxtProjectDirectory.Text %></ProjectDirectory>
                  </Project>

        ProjectDirectoryXml.Add(dir)

        'ProjectDirectoryXml.Save("C:\Documents and Settings\Hanzie\My Documents\ProjectDirectorys.xml")
        ProjectDirectoryXml.Save(System.AppDomain.CurrentDomain.BaseDirectory & "\ProjectDirectorys.xml")

    End Sub

    Private Sub BtnDirectoryOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDirectoryOpslaan.Click
        'XML Bestand maken of aanvullen met projectdirectory gegevens
        'If File.Exists("c:/Documents and Settings/Hanzie/My documents/Projectdirectorys.xml") = False Then
        If File.Exists(System.AppDomain.CurrentDomain.BaseDirectory & "/Projectdirectorys.xml") = False Then
            MaakXmlBestand()
        Else
            'bestandsnaamtoevoegen
            VoegtoeXmlbestand()
        End If


        'Database-tabel Werken aan vullen met gegevens (behalve projectdirectory)
        Dim werknummer As String = Me.TxtWerknummer.Text
        Dim omschrijving As String = Me.TxtOmschrijving.Text
        Dim plaats As String = Me.TxtPlaats.Text
        Dim architect As String = Me.TxtArchitect.Text
        Dim constructeur As String = Me.TxtConstructeur.Text

        Dim objdatarow As DataRow
        objdatarow = DocRegData2DataSet.Tables("Werken").NewRow

        objdatarow("Werknummer") = werknummer
        objdatarow("Werkomschrijving") = omschrijving
        objdatarow("Plaats") = plaats
        objdatarow("Architect") = architect
        objdatarow("Constructeur") = constructeur

        DocRegData2DataSet.Tables("Werken").Rows.Add(objdatarow)

        WerkenTableAdapter1.Update(DocRegData2DataSet.Werken)
        WerkenTableAdapter1.Fill(DocRegData2DataSet.Werken)

        MsgBox("Nieuw werk is toegevoegd!")


    End Sub


    Private Sub BtnKiesDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKiesDirectory.Click

        With dlgKiesProjectmap

            .Description = "Kies Projectmap"
            .ShowNewFolderButton = True
            .ShowDialog()
            Me.TxtProjectDirectory.Text = .SelectedPath

        End With


    End Sub

    Private Sub BtnVerwijderWerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerwijderWerk.Click
        'Verwijderen uit tabel werken en alle tekeningen met datums en statussen
        Dim werknummer = Me.WerknummerComboBox.Text

        With cmdVerwijderwerk
            .CommandText = "Verwijderen_Data_Werk"
            .CommandType = CommandType.StoredProcedure
            .Connection = cn
            .Parameters.AddWithValue("@Werknummer", werknummer)
        End With

        Dialog_Verwijderen_werk()

    End Sub

    Private Sub Dialog_Verwijderen_werk()

        My.Forms.DialogVerwijderWerknummer.ShowDialog()

        If My.Forms.DialogVerwijderWerknummer.DialogResult = Windows.Forms.DialogResult.OK Then

            cn.Open()
            cmdVerwijderwerk.ExecuteNonQuery()
            cn.Close()

            MsgBox("Werk " & Me.WerknummerComboBox.Text & " is verwijderd!")

        Else

            MsgBox("Werk " & Me.WerknummerComboBox.Text & " is NIET verwijderd!")

        End If

    End Sub


End Class